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Resumo 


Dando jus à matemática experimental, mostramos como o Maple pode 
ser usado na investigação matemática de algumas questões actualmente sem 
resposta na Teoria dos Números. A tese defendida é que os alunos de um 
curso de Matemática podem facilmente usar o computador como um lugar 
onde se excita e exercita a imaginação. 


1 Introdução 


Albert Einstein é conhecido por ter dito que “à imaginação é mais importante 
que o conhecimento”. Se assim é, porquê esperar pelo mestrado ou doutoramento 
para começar a enfrentar problemas em aberto? Não é a criatividade prerrogativa 
dos mais novos? Em [3] mostrei como com muito pouco conhecimento é possível 
debruçar-mo-nos sobre algumas questões actualmente sem resposta na Teoria de 
Computação. Aqui, e a propósito do ano 2003 ter sido escolhido pela APM como 
o ano da Matemática e Tecnologia, vou procurar mostrar como o computador e um 
ambiente moderno de computação algébrica, como seja o Maple, podem ser exce- 
lentes auxiliares na abordagem a “quebra-cabeças” que a matemática dos números 
actualmente nos coloca. A minha escolha do sistema Maple prende-se com o facto 
de ser este o programa informático actualmente usado na cadeira de Computadores 
no Ensino da Matemática, no Departamento de Matemática da Universidade de 
Aveiro. Desta maneira os meus alunos serão prova viva de que basta um semes- 
tre de “tecnologias nà educação matemática”, para nos podermos aventurar por 

" “mares ainda não navegados”. O leitor que queira aprender sobre o Maple poderá 
começar por consultar o nosso site de Computadores no Ensino da Matemática: 
http://webct .ua.pt/public/compensmat/index.html. 


2 Números felizes 


Seja n € N um-número natural com representação decimal n = dy... do, 0<d;<9 
(i=0,...,k), e denotemos por o(n) a sema dos quadrados dos dígitos decimais de 
n: cin) = AB CA Dizemos que n é um nimero feliz se existir um r E N tal 
que (co-.-cg)(n) =1. Por exemplo, 7 é um número feliz (r=5), 

e À 


T vezes 


o(7) = 49, o(49) = 97, o(97) = 130, o(130) = 10, o(10) = 1; 
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enquanto 2 não: 


o(2) = 4, o(4) = 16, o(16) =37, o(37) = 58, o(58) = 89, 
o(89) = 145, o(145) = 42, 0(42) = 20, (20) = 4... 


Vamos definir em Maple a função característica Bocleana dos números felizes. Começamos 
por definir a função digitos que nos devolve à sequência de dígitos de uma dado 
número n 


> digitos := n -> seq(iquo(irem(n,1071),10"(i-1)),i=1..length(n)): 
> digitos(12345); 


5,4,3,2,1 
A função q é agora facilmente construída 


> sigma :=n -> add(i"2,i-digitos(n)): 
> sigma(24); 


20 
O processo de composição da função o é obtido usando o operador O do Maple: 


>si=(n,r)-> seq((sigmad0i)(n),i=l..r): 
> s(7,5); 


49, 97, 130, 10,1 
> 5(2,9); 
4, 16, 37, 58, 89, 145, 42, 20,4 


Para automatizarmos o processo de decisão se um número é feliz ou não, recorremos 
a alguma programação. O seguinte procedimento deve ser claro. 


> feliz := proc(n) 
local L, v: 
Li= O; 
v := sigma(n): : 
while (not (member(v,L) or v=1)) do 
L :=L union (v): 
v := sigma(v): 
end do: 
if (v = 1) then true else false end if: 
end proc: 


MM NV NM MN Y 


Podemos agora questionar o sistema Maple acerca da felicidade de um determinado 
número. 


> feliz(7); 
ie 
> feliz(D); 
false 
À lista de todos os números felizes até 100 é dada por 


> select(feliz, [$1..100]); 
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[1,7,10,13,19,23,28,31,32,44,49,68, 70, 79, 82, 86,91,94,97,100] 
Concluímos então que existem 20 números felizes de entre os primeiros 100 naturais 
> nops(select(feliz, [$1,.100])); 
20 


Existem 143 números felizes não superiores a 1000; 1442 não superiores a 10000; e 
3038 não superiores a 20000: 


> nops(select(feliz, [$1..1000])): 
148 

> nops(select(feliz, [$1..10000])); 
1442 

> nops(select(feliz, [$1..20000])): 


3038 


Estas últimas experiências com o Maple permitem-nos formular a seguinte conjec- 
tura. l 


Conjectura 1. Cerca de um sétimo de todos os múmeros são felizes, 


Uma questão interessante é estudar números felizes consecutivos. De entre os 
primeiros 1442 números felizes podemos encontrar 238 pares de números felizes 
consecutivos (o mais pequeno é o (31,32); 


> felizDezMil := select(feliz, [$1..10000]): 
> nops(select(i->member(i,felizDezMil) and 
member (i+1,felizDezMil),felizDezMil)); 
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onze ternos de números felizes consecutivos, o mais pequeno dos quais é o (1880, 1881, 1882); 


1 


> select(i->member(i,felizDezMil) and 
member (i+i,felizDezMil) and 
member (i+2,felizDezMil),felizDezMil) 5 


[1880, 4780, 4870, 7480, 7839, 7840, 8180, 8470, 8739, 8740, 8810] 


dois quaternos de números felizes consecutivos, o mais pequeno dos quais é o 
" (7839, 7840, 7841, 7842); 


> select (i->member(i,felizDezMil) and 
member (i+i,felizDezMil) and 
member (i+2,felizDezMil) and 
member (i+3,felizDezMil),felizDezMil) É 
[7839, 8739] 


e nenhuma sequência de cinco números felizes consecutivos. 


> select(i->member(i,felizDezMil) and 
member (i+1,felizDezMil) and 
member(i+2,felizDezMil) and 
member (i+3,felizDezMil) and 
member (i+4,felizDezMil),felizDezMil) ! 
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[1] 


Sabe-se que a primeira sequência de cinco números felizes consecutivos começa com 
o 44488, 


feliz(44488) and feliz(44489) and feliz(44490) and 
feliz(44491) and feliz(44492); 


true 


É também conhecida uma sequência de 7 números felizes consecutivos, que começa 
com o número 7899999999999959999999996 (wide (4)). 


3 Sucessões de Smaraidadha 


Dada uma sucessão de inteiros (tim), à correspondente sucessão de Smarandache 
(sn) é definida por concatenação de inteiros como se segue: 


S1=U1, 52 =UjUZ,..., Sn EE Un casa 


Estamos interessados na sucessão de Smarandache associada aos números felizes. 
Os primeiros elementos desta sucessão são: 


É 17,1710, 171013, 17101319, 1710131993, 171013192328,17101319232831,... 


Começamos por implementar a concatenação de inteiros em Maple. 


> conc := (a,b) -> a+*10"length(b)+b: 
> conc(12,345); 


12345 


Formando a lista dos números felizes até um certo n, e usando a função conc acima 
definida, a correspondente sucessão de Smarandache é facilmente obtida. 


> sh := proc(n) 
> local L, R, i: 
> L:=select(feliz,[$1..n]): 
> R:=array(i..nops(L),L): 
> for à from 2 by 1 while i <= nops(L) do 
> R[i]:=conc(R(i-1],L[5]): 
> end do: 
>  return(R): 
> end proc: 
“Como 


> select (feliz, [$1..31]); 
[1,7,10,13, 19,23,28,31] 
os primeiros 8 valores da sucessão de Smarandache são então 
> print(sh(31)); 
(1, 17, 1710, 171013, 17101319, 1710131923, 171013192328, 17101319232831) 


Existem muitas questões em aberto associadas à sucessão de Smarandache dos 
números felizes (vide |2]). Umas dizem respeito à existência de números primos 
na sucessão; outras à existência de números felizes. Façamos agora alguma inves- 
tigação a este respeito. Usando o Maple é fácil concluir que de entre os primeiros 
143 termos da sucessão de Smarandache dos números felizes, apenas 3 são primos. 
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> primos := select(isprime,sh(1000)): 
> nops([seag(primos[i],i=1..143)]); 


3 


Se fizermos print (primos) vemos que os três primos são so = 17,35 = 17101319€ 
sa3 (843 é um primo com 108 dígitos decimais). 


> primos [2], primos[5]; 
17, 17101319 
> length(primos [43]); 
108 


Apenas são conhecidos estes números primos na sucessão de Smarandache dos 
números felizes. Permanece por esclarecer se eles serão ou não em número finito 
(vide [1]). 

Existem 31 números felizes de entre os primeiros 143 termos da sucessão de 
Smarandache dos números felizes: 


> shFelizes := select (feliz,sh(1000)): 
> nops([seg(shbFelizes[1],i=1..143)]): 


Sl 


Recorrendo ao comando print (shFelizes) vemos que esses números são o 81, 811» 
S14, 830: 831, 835» S48, $52, 358: 962, 5673 569, S713 Sr6s S7T3 S78» S82» 583, 585, SOB, SIDA, 


$108, 8110, S114; 8115, S$117, 8118, $119, 8122; 5139 € 8149. À título de curiosidade, s149 
tem 399 dígitos: 


> length(shFelizes[140]); 


399 


Muito existe por esclarecer relativamente à existência de números felizes consecu- 
tivos na sucessão de Smarandache dos números felizes. Olhando para os resulta- 
dos anteriores vemos que o par mais pequeno de números felizes consecutivos é o 
(30; 831); enquanto o terno mais pequeno é o (s76, S77, 578). Quantos termos con- 
secutivos são possíveis? É capaz de encontrar exemplos, digamos, de seis números 
felizes consecutivos? Estas e outras questões estão em aberto (wide [1]). Ferramen- 
tas como o Maple são boas auxiliares neste tipo de investigações. Fico à espera de 
algumas respostas da sua parte. 
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